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RMSOPEN2 = PROCESS RELATIVE FILE PROLOG 


N 6 
yaar RELATIVE SPECIFIC OPEN 16-SEP-1984 : 9 4+ ¢¢ AX/VMS Macro V04-00 Page 1 | 
6: RMS .SRCIJRM20PEN.MAR; 1 (1)) 


v04-000 ~SEP-1984 
68 : $SBEGIN RM20PEN,000,RMSRMS2,<RELATIVE SPECIFIC OPEN> | 
09 : S eneenrecencccccceneenceceneneerenecenenccerereenqcenenscecereeeeccceeecccers | 
3* ey 
4 § 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
000 3* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
B8 8 ‘* ALL RIGHTS RESERVED. : 
it 10 ts THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND og ty * 
000 11 3;* ONLY IN ACCORDANCE WITH THE MS U ICENSE AND WITH THE * 
4 1 7* LUSIO HE ABOVE COPYRIGHT NOTICE. THIS S$ OR a 
00 15 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
4 14 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * | 
44 1? ro TRANSFERRED. * 
: ® 
0000 i$ :* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 18 :* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i464 \) . CORPORATION. * 
: * 
0000 21 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 $6 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 25 ;* * 
0000 24 3 * 
4 $2 i SRR ERE REECE TEETER EEE EE eee eee eee 
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gree Ee FLSe9§ PANLVES Sacre rete oe 


$ p++ 
p : Facility: RMS32 
6 § > Abstract: 
8 3 this module provides the organiza atonwapes t¥e 

9 : ; open processing for relative files 

09 § : Environment: 

8 4 ; star processor running starlet exec. 

09 ip Author: L F Laverdure, creation date: 10-OCT-1977 

09 41 : Modified By: 

9000 28 : V03-007 RASO284 Ron Schaefer 30-Mar-1984 
44 re ; Fix STV value on error paths for RMS$_RPL and "RMSS _WPL errors. 
$000 4 : v03-006 DASO001 avid Solomon 25-Mar-1984 
8008 oh ; Fix broken or... to RMS$COPRTN. 

0000 49; V03-005 RASO265 Ron Schaefer 9-Mar-1984 
i464 29 3 Bump IFBS$W_AVLCL to ae the BDB & buffer we allocate. 
0000 3 ; V03-004 KBT0475 Keith B. Thompson 26-Jan-1983 
444 7 ; Remove check der oof open. 

0000 «s«455:; V03-003 KBT0463 Keith B. Thompson 13-Jan-1983 
8000 28 : Allocate a bdb san butter to read in prologue 

0000 58; v03-002 KBT0130 Keith B. Thompson 20-Aug-1982 
8858 2 ; Reorganize psect 
0000 «61: v03-001 KBT0112 Keith 8. Thompson 6-Aug-1982 
BR 6 3 Remove ref to ot. sifb_eof 
0000 64: v02-013 cps0002 5-Feb-1982 
44 2? ; Back out V02- 012° at ~~ now a record attribute. 
000 67; v02-012 coso001 C Saether 3-Jan-1982 
00 68 ; Return GBC field (ren srelogue to FAB. 

bf $° 3 Fix comment fields. 

1093 4 ; V02-011 REFORMAT Keith B. Thompson 29-Jul-1980 
000 58 ie 

0000 74 ; 

0000 75 
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RELATIV 
RMSOPEN 


sP oP 
- RELATIVE FILE 


16-SEP-1984 
PROLOG ~SEP=1984 


91 04:98 AX/VMS Hacre v04-00 


RMS .SRCIJRM20PEN.MAR; 1 


Page 


-SBTTL RMSOPEN2 = PROCESS RELATIVE FILE PROLOG 
ae 
RMSOPEN2 ° 


this routine per reras the file open functions that are 
specific to the relative file organization, including: 


1 = verify inter-process record locking not specified 
since not yet implemented 

2 = reading in the prgtog and setting the ebk,dvbn, 
and mrn ifab fields based upon its contents. 

3 = setting the mrn fab field. 


Calling sequence: 


entered via case branch from RMSS$OPEN. returns by 
jumping to RMSCOPRTN, 


Input Parameters: 


R11 impure area address 
R9 ifab address 
R8& fab address 


Implicit Inputs: 
the contents of the ifab 
Output Parameters: 


RO status code 
R10 ifab addr 
R1-R5,AP destroyed 


Implicit Outputs: 
various fields in the ifab and fab are initialized. 
Completion Codes: 


COOCSCCOCCOCOOCOCOCSCOOSCOOCOOCOOOOOOCOOCOOOOCOOOCOOOOOOCOOOOOOO rum 


DNVWNOQOOCOCOCCOCOSOOCOCOCOCOCOCOC COSCO COSCOCCOCCOCO COCO OCOCOCOCOOOCOCOOOOCOOOOOoOOO 


standard rms, in particular suc,plg,shr,rpl, and ver. 
Side Effects: 


may wait quits some time for prolog to become 
free initially. leaves prolog locked. 


SOOOOCCOOCOOCOCOOSCOOOOOCOSOSOSCOSOSOSOOSCOOSOOOOSOOCOOOOOOOOOOOOOoOO 


COOCOOCOCOOOCOCOCOOOOSOOOOCOOSOOOOOOOOOOOOCOOOOOCOOOoOOoOO 


Soooooooooo 
SOoooocooooooooo 


RMSOPEN2: : 
SE AQ 9 TSTB 1FB$B_BKS(R9) ; make sure bks non-zero 
1 BEQL ERRIFA : 1 yes. is error 
10 9 BITB #FABSC_REL,- ; really relative? 
50 a9 1FB$B_RFMORG(R9) 
13 BEQL EXIT ; aha - a bogus seq file posing 


Bs 


eatin RE ave SPECIFIC OPEN 19-5 Een 138? 01 00:46 AX/VMS Macro V04-00 Page 
v04-0 RMSOPEN2 = PROCESS RELATIVE FILE PROLOG “SEP-1984 16:24: RMS.SRCIRMZ0PEN.MAR; 1 
: Fe ; as relative for sharing 
; 18¢ ; if bio access, then prolog read is not required. 
B 163° 
05 €0 B 164 BBS #iFB$V_BI0,- ; leave successfully 
49 22 a9 Op 165 1FB$B_FAC(R9) ,SEXIT 
01 169 : 
01 168 ; read and process prolog 
gee 
SA 59 0 5} 171 OVL R9,R10 ; set ifab addr 
55 0200 8F C 001 Ife MOVZ2WL #542,R5 ; ask for one block to read prologue 
“hy 0 001 17 SBW RMSALDBUF 3; allocate bdb and buffer 
3—E 50 €9 OO1B 174 BLBC RO,EXIT ; get out on error 
0084 (9 486 OO1E 175 INCW  IFB$W_AVLCL(R9) + count BDB ‘ buffer 
4 176 SCACHE VBN=#T,- ; read the prolog 
0 17 $126=#512,- : (RS=buffer addy) 
00 178 FLAGS=LOCK,=- 
00 179 ERR=ERRRPL 
FFCA' 30 00 180 BSBW RMSCHKSUM 3 validate its checksum 
2350 €9 0036 181 BLBC RO, EXIT 3; get out on error 
74 AS” Bl Bae 136 CMPW PLG$W_VER_NO(RS),= 3; Supported version? 
01 0O3C = «18 #PLG$C_VER_NO 
52 12 0030 184 BNEQ ERRPLV : branch if not 
OO3F 185 
OO3F 186 ; 
OO3F 187 ; set up ifab values 
BORE 188 ; 
8 F189 
70 AS dO O3F 190 MOVL PLGSL_EOF(R5),- ; copy eof vbn 
74 Ad 0042 191 IFBSL~EBK(R9) 
68 AS 3C 0044 136 MOVZWL PLG$W_OVBN(R5),- 3; copy vbn of first data bucket 
0080 (9 0047 19 IF B$L~DVBN(R9) 
6C AS DO O04A 194 MOVL PLG$L_MRN(R5) ,- ; copy max. record number 
OOAC C9 Bnee 195 HE at 
5C B4 05 196 CLRW IF BSW_FFB(R9) ; set blk offset=0 
005 197 
005 198 ; 
005 199 ; set mrn, gbc in fab 
B53 
OOAC C9 dO Bpee 8 SET: MOVL AS sy _MRN(RY) = ; set mrn 
38 A8 05 ABSL_MRN(RB) 
0059 04 SEXIT: RMSSUC 3 show success 
OOOO00000'EF 17 O05C OS EXIT: JMP RMSCOPRIN ; & rejoin common moyen code 
Bes 06 3; note: the bdb 
06 07 ; be released Mos: 
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v04- RMSOPEN2 = PROCESS RELATIVE FILE PROLOG -SEP=1984 16:24: RMS.SRCIRMZ2OPEN.MAR; 1 
ae 
12 ; handle errors 
1 - 
6 14 ERRIFA 
OC AB 0001841C BF 00 6 15 OVL WRMS$_BKS,FABSL_STV(R8) ; set secondary error info 
6A 18 RMSERR IFA i illegal file attributes 
1A b3 1 BRB ERRXIT 
071 519 ERRORG: 
71 0 " RMSERR OR : trying t f 
. oF 1 RB ORexit Sete eating rym Bhd 
007 : ERRRPL: 
OC AB DS Ba5 4 TSTL FALSL_STV(RB) ; do we have an stv? 
09 12 0078 5 BNEQ 1 3; okay use it 
OC AB 50 00001000 BF C9 943 § BISL3. #*X1000,R0,FABSL_STV(R8); else set the RMS error there 
086 10$: RMSERR RPL ; prolog read error 
0088 399 
0088 0 ; (stv has ss error code) 
bo8B 582 
00000000'EF 17 434 33 ERRXIT: JMP RMSCOPRIN ; go clean up 
0091 35 
0091 36 ERRPLV: 
0091 37 RMSERR PLV 3 unsupported prolog version 
F3 11 0096 38 BRB ERRXIT 
0098 39 
0098 40 . END 


RM20PEN 
Symbol table 
$$.PSECT_EP 
$$. TMP 
SSRMSTEST 
SSRMS_PBUGCHK 
SSRMS_TBUGCHK 
SSRMS_UMODE 
CSHSM_LOCK 
CSHSM 
ERRIF 


ePeesr 


ee tt ae a ee 
wannwwnnwe 
Oowwwwwwwww 


NOBUF FER 


ooooo[eoo 


RELATIVE SPECIFIC OPEN 


COOCCCCOOCOCOCOCOCOCOCOCOCOOOCOOOOOOOOCOoOO 
oOo 


OOoooQooooooooooooo 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


WOO LUO LOOKIMO 


00000074 


eaereanee 
eeataeane 
rereeeree 
eeaekenne 


00000000 
001841C 


oooooo 
oooooo 
oco---— 
COOF@OoOn 
oo-]no— 
WIMONOCTY 
DLO 


Allocation 


0000000 
0000009 
00000000 


oooo°eo 
—— 


0 
0 


Oooo°ce 


ce a 


ab 


~~ 


PSECT No. 


00 ¢ 9.) 
1¢ 15) 
02 (¢ 21) 


Attributes 

NOPIC USR 
PIC USR 

NOPIC USR 


CON 
CON 
CON 


AX/VMS Macro v04-00 
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OSHR NO 
OSHR 
OSHR 


EXE 
EXE 
EXE 


NORD NOWRT NOVEC 
RD NOWRT NOVEC 
RD WRT NOVEC 
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BYTE 
BYTE 
BYTE 
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VAX=-11 Macro Run Statistics SEP=1984 RMS.SRCJRMZ20PEN.MAR; 1 


Foe oeeoeeeeeeeeeeseceeseseces} 


! Performance indicators ! 


Few eeeeeeeeeseeeseseseeee a 


Phase Page faults CPU Time Elapsed Time 


Initialization :00:00. :00:00.59 
Command processing 134 8; : 0:78 if 0:08.23 
Pass 1 241 8: : 8-3 7:00:18. 
Symbol table sort :00: 2s 0:00:00.7 
Pass 5 8: 701. :00:03.4 
Symbol table output 5 :00:00.07 :00:00.14 
Psect synopsis output 0:00:00.03 8 :00: +68 
Cross-reference output 0:00:00.00 : i ! 
Assembler run totals 6 00:00:09.44 00:00:27.1 


The working set Limit was 1350 pages. 

34621 bytes (68 pages) of virtual memory were used to buffer the intermediate code. 

There were 40 pages of symbol table space allocated to hold 664 non-local and 1 local symbols. 
40 source Lines were read in Pass 1, producing 13 object records in Pass 2. 

0 pages of virtual memory were used to define 19 macros. 


ee ene e en enero wee ence neo es} 


Macro Library name Macros defined 


“$523 SDUAZE: RMS .OBJJRMS.MLB; 1 12 
_$255$DUA28: (SYS.OBJJLIB.MLB; 1 0 
$255$DUA28: CSYSLIBISTARLET.MLB; 2 : 
TOTALS (all Libraries) 1 
794 GETS were required to define 15 macros. 

There were no errors, warnings or information messages. 


MACRO/LIS=LIS$:RM20PEN/OBJ=OBJ$:RM20PEN MSRC$:RM2OPEN/UPDATE=(ENH$:RM2OPEN) +EXECML$/LIB+LIB$:RMS/LIB 
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